﻿Public Class FaaliyetKodlari : Inherits Process

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Start("Faaliyet kodları", "Faaliyet kodları listelenmiştir.")
				AddTree()
			Case EventType.Shown
				Rs = Sistem.FaaliyetKodlari(Remote)
				For Each Row In Rs
					Tree.AddNode(Mid(Rs("kod"), 1, Len(Rs("kod")) - 1), Rs("kod"), "[" & Rs("kod") & "] " & Rs("aciklama"))
				Next
		End Select
	End Sub

End Class
